home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / trau / karaset.cfg < prev    next >
Text File  |  1991-10-18  |  1KB  |  39 lines

  1. /*********************************************************************
  2. /*
  3. /*  "KARASET.CFG": カラオケEUP 選択用 外部マクロコマンド
  4. /*                                                       By TaroPYON
  5. /*
  6. /*   TIFF画像データのパスを知りたいため…
  7. /*   KARA_TIFにEUP の拡張子を.TIFにしたファイル名がセットされる
  8. /*
  9.  
  10. main {
  11.     _HEPLAY_TYPE = 4;
  12.     TMP = "";
  13.     file_select("TMP","カラオケ EUP 選択",-1, "", "*.eup",0)
  14.     if ( VAL ! 0 )
  15.     {   return
  16.     }
  17.     if ( TMP = "" )
  18.     {   return
  19.     }
  20.     strupr("KARA_EUP",TMP)
  21.     instr(KARA_EUP,".EUP")
  22.     POS = VAL;
  23.     if ( POS > 0 )
  24.     {   /* ".EUP"が含まれている */
  25.         strmid("KARA_TIF",KARA_EUP,0,POS)
  26.         KARA_TIF =  "\(KARA_TIF).TIF"
  27. #       echo("    EUP \(KARA_EUP)\n")
  28. #       echo("    TIF \(KARA_TIF)\n")
  29. #       wait(60)
  30. #       wind_close()
  31.  
  32.         bgm_set(KARA_EUP)
  33.         bgm_mode(0)
  34.         /* キーボードログ登録&実行
  35.         /*   [PF4] [H] [PF7] [↓] [実行] */
  36.         key("\\k6000H\\k6300\\k5000\\r")
  37.     }
  38. }
  39.